(DEFUN C:FLEXCABLE ()
  (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! "))
  (SETQ bulge_sign 1.0)
  (SETQ new_ite NIL
        ITE NIL
  )
  (SETQ ITE (ENTGET(CAR(ENTSEL))))
  (IF (EQ (CDR (ASSOC 0 ITE)) "POLYLINE")
    (PROGN
      (COMMAND ".convertpoly" "light" (CDR (ASSOC -1 ITE)) "")
      (PRINC "\nHeavy Polyline converted to LWPolyline please select it again: ")
      (PRINC)
      (SETQ LWPOLY_SS (SSGET '((0 . "LWPOLYLINE"))))
      (SETQ ITE (ENTGET(SSNAME LWPOLY_SS 0)))
    )
  )
  (SETQ ite_len (LENGTH ITE))
  (SETQ ite_cnt 0)
  (WHILE (< ite_cnt ite_len)
    (IF (EQ (CAR (NTH ite_cnt ITE)) 42)
      (SETQ new_ite (APPEND new_ite (LIST (CONS 42 (* (SETQ bulge_sign (* -1.0 bulge_sign)) 0.60)))))
      (SETQ new_ite (APPEND new_ite (LIST (NTH ite_cnt ITE))))
    )
    (SETQ ite_cnt (1+ ite_cnt))
  )
  (IF
    (ENTMAKE (CDR new_ite))
    NIL
  )
  (PRINC)
)
